home *** CD-ROM | disk | FTP | other *** search
/ Chip 2000 May / Chip_2000-05_cd1.bin / sharewar / FFE / COMM.SWG / 0008_HUD Pascal Header.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1997-05-11  |  3.2 KB  |  66 lines
  1. Type MsgTxtType = String[255];         {MsgTxt.Bbs file}
  2.  
  3. Type MsgToIdxType = String[35];          {MsgToIdx.Bbs file}
  4.  
  5. Type MsgInfoType = Record              {MsgInfo.Bbs file}
  6.   LowMsg: Word;                        {Low message number in file}
  7.   HighMsg: Word;                       {High message number in file}
  8.   Active: Word;                        {Number of active messages}
  9.   AreaActive: Array[1..200] of Word;   {Number active in each area}
  10.   End;
  11.  
  12. Type MsgIdxType = Record               {MsgIdx.Bbs file}
  13.   MsgNum: Word;                        {Message number}
  14.   Area: Byte;                          {Message area}
  15.   End;
  16.  
  17. Type MsgHdrType = Record               {MsgHdr.Bbs file}
  18.   MsgNum: Word;                        {Message number}
  19.   ReplyTo: Word;                       {Message is reply to this number}
  20.   SeeAlso: Word;                       {Message has replies}
  21.   Extra: Word;                         {No longer used}
  22.   StartRec: Word;                      {starting seek offset in MsgTxt.Bbs}
  23.   NumRecs: Word;                       {number of MsgTxt.Bbs records}
  24.   DestNet: Integer;                    {NetMail Destination Net}
  25.   DestNode: Integer;                   {NetMail Destination Node}
  26.   OrigNet: Integer;                    {NetMail Originating Net}
  27.   OrigNode: Integer;                   {NetMail Originating Node}
  28.   DestZone: Byte;                      {NetMail Destination Zone}
  29.   OrigZone: Byte;                      {NetMail Originating Zone}
  30.   Cost: Word;                          {NetMail Cost}
  31.   MsgAttr: Byte;                       {Message attribute - see constants}
  32.   NetAttr: Byte;                       {Netmail attribute - see constants}
  33.   Area: Byte;                          {Message area}
  34.   Time: String[5];                     {Message time in HH:MM}
  35.   Date: String[8];                     {Message date in MM-DD-YY}
  36.   MsgTo: String[35];                   {Message is intended for}
  37.   MsgFrom: String[35];                 {Message was written by}
  38.   Subj: String[72];                    {Message subject}
  39.   End;
  40.  
  41.  
  42. Type LastReadType = Array[1..200] Of Word; {LASTREAD.BBS file}
  43.  
  44.  
  45. Const                                  {MsgHdr.MsgAttr}
  46.   maDeleted =       1;                 {Message is deleted}
  47.   maUnmovedNet =    2;                 {Unexported Netmail message}
  48.   maNetMail =       4;                 {Message is netmail message}
  49.   maPriv =          8;                 {Message is private}
  50.   maRcvd =         16;                 {Message is received}
  51.   maUnmovedEcho =  32;                 {Unexported Echomail message}
  52.   maLocal =        64;                 {"Locally" entered message}
  53.  
  54.  
  55. Const                                  {MsgHdr.NetAttr}
  56.   naKillSent =      1;                 {Delete after exporting}
  57.   naSent =          2;                 {Msg has been sent}
  58.   naFAttach =       4;                 {Msg has file attached}
  59.   naCrash =         8;                 {Msg is crash}
  60.   naReqRcpt =      16;                 {Msg requests receipt}
  61.   naReqAudit =     32;                 {Msg requests audit}
  62.   naRetRcpt =      64;                 {Msg is a return receipt}
  63.   naFileReq =     128;                 {Msg is a file request}
  64.  
  65.  
  66.